Voorbeeld van de functie Rate

Dit voorbeeld maakt gebruik van de functie Rate om de rentevoet van de lening te berekenen op basis van het totale aantal betalingen (TotPmts), de omvang van de betaling van de lening (Payment), de huidige waarde of hoofdsom van de lening (PVal), de toekomstige waarde van de lening (FVal), een getal dat aangeeft of de betaling aan het begin of aan het eind van de betalingsperiode plaatsvindt (PayType) en een benadering van de verwachte rentevoet (Guess).

Dim Fmt, FVal, Guess, PVal, Payment, TotPmts, PayType, APR
Const ENDPERIOD = 0, BEGINPERIOD = 1    ' Wanneer de betalingen plaatsvinden.
Fmt = "##0,00"    ' Definieer percentagenotatie.
FVal = 0    ' Gewoonlijk 0 voor een lening.
Guess = .1    ' Verwachte rentevoet 10 procent.
PVal = InputBox("Hoeveel hebt u geleend?")
Payment = InputBox("Hoeveel betaalt u per maand?")
TotPmts = InputBox("Hoeveel maandelijkse betalingen vinden er plaats?")
PayType = MsgBox("Vinden de betalingen aan het eind van de maand plaats?", _
vbYesNo)
If PayType = vbNo Then PayType = BEGINPERIOD Else PayType = ENDPERIOD
APR = (Rate(TotPmts, -Payment, PVal, FVal, PayType, Guess) * 12) * 100
MsgBox "Uw rente is " & Format(CInt(APR), Fmt) & " procent."